home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / GAM / 0-B / Bolo.cpt / Bolo / Bolo Map Editor / background_2563.xml next >
Extensible Markup Language  |  1992-08-18  |  3KB  |  45 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2563</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3131.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <false /> </sharedText>
  17.         <fixedLineHeight> <true /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <true /> </lockText>
  20.         <rect>
  21.             <left>95</left>
  22.             <top>55</top>
  23.             <right>640</right>
  24.             <bottom>374</bottom>
  25.         </rect>
  26.         <style>scrolling</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <false /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>left</textAlign>
  35.         <font>Bolo</font>
  36.         <textSize>6</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <textHeight>6</textHeight>
  39.         <name>map</name>
  40.         <script>on mousedownglobal hthingput the rect of bg field "map" into origput bg field "map" into mapput map into cd field "before"repeat while the mouse is downput the mouseloc into coords-- put trunc((item 1 of coords - item 1 of orig)/5+.2) into x-- put trunc((item 2 of coords - item 2 of orig)/9+.9) into yput trunc((item 1 of coords - item 1 of orig)/5+.2) into xput trunc((item 2 of coords - item 2 of orig)/6+.9) into yif x>=1 and x<=104 and y >=1 and y<=52 thenput hthing into char x of line y of map--put map into bg field "map"end ifend repeatlock screenput map into bg field "map"if "*" is in map thenput item 1 of FindinField(map,"*","true",0) into pillput 0 into crepeat until pill = 0add 1 to cput item 1 of FindinField(map,"*","true",pill) into pillend repeatif c > 16 thenbeepanswer "error: Can't have more than 16 Pillboxes         (I count " & c&")." with "OK"end ifend ifif "+" is in map thenput item 1 of FindinField(map,"+","true",0) into baseput 0 into crepeat until base = 0add 1 to cput item 1 of FindinField(map,"+","true",base) into baseend repeatif c > 16 thenbeepanswer "error: Can't have more than 16 Bases              (I count " & c&")." with "OK"end ifend ifunlock screenend mousedown</script>
  41.     </part>
  42.     <name></name>
  43.     <script></script>
  44. </background>
  45.